/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / kdsutils.sfx / keydos compiler

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 01 1c 96 1c 00 00 fe 25 | 3a 45 24 b2 c7 28 32 37 |.......%|:E$..(27|
|00000010| 29 3a 52 24 b2 c7 28 31 | 33 29 3a 51 24 b2 c7 28 |):R$..(1|3):Q$..(|
|00000020| 33 34 29 3a 43 4c 24 b2 | 45 24 aa 22 51 22 3a 86 |34):CL$.|E$."Q":.|
|00000030| 4b 24 28 32 30 29 2c 44 | 24 28 32 30 29 3a 4b 24 |K$(20),D|$(20):K$|
|00000040| 28 31 29 b2 22 44 cc 20 | 09 09 09 2c 55 28 50 45 |(1)."D. |...,U(PE|
|00000050| c5 28 31 38 36 29 29 22 | aa 52 24 3a 4b 24 28 32 |.(186))"|.R$:K$(2|
|00000060| 29 b2 22 52 d5 20 09 09 | 09 2c 55 28 50 45 c5 28 |)."R. ..|.,U(PE.(|
|00000070| 31 38 36 29 29 22 aa 52 | 24 3a 4b 24 28 33 29 b2 |186))".R|$:K$(3).|
|00000080| 45 24 aa 22 59 43 c1 55 | 28 50 45 c5 28 31 38 36 |E$."YC.U|(PE.(186|
|00000090| 29 29 22 aa 52 24 00 11 | 1d 01 00 4b 24 28 34 29 |))".R$..|...K$(4)|
|000000a0| b2 45 24 aa 22 49 50 4f | 4b 45 32 38 31 36 2c 28 |.E$."IPO|KE2816,(|
|000000b0| 50 45 c5 28 31 38 36 29 | 29 3a 52 d5 22 aa 51 24 |PE.(186)|):R.".Q$|
|000000c0| aa 22 36 34 22 aa 51 24 | aa 22 2c 55 38 22 aa 52 |."64".Q$|.",U8".R|
|000000d0| 24 3a 8f 20 2a 20 2a 20 | 2a 20 2a 20 2a 20 2a 20 |$:. * * |* * * * |
|000000e0| 2a 20 2a 20 2a 20 2a 43 | 48 41 4e 47 45 20 4e 55 |* * * *C|HANGE NU|
|000000f0| 4d 42 45 52 20 41 46 54 | 45 52 20 55 20 46 4f 52 |MBER AFT|ER U FOR|
|00000100| 20 44 52 49 56 45 20 57 | 49 54 48 20 52 55 4e 36 | DRIVE W|ITH RUN6|
|00000110| 34 00 05 1e 02 00 4b 24 | 28 35 29 b2 22 09 09 09 |4.....K$|(5)."...|
|00000120| 2b 22 aa 51 24 aa 22 2c | 53 2c 52 22 aa 51 24 aa |+".Q$.",|S,R".Q$.|
|00000130| 22 3a 53 c3 3a 53 59 53 | 34 31 31 34 39 22 aa 45 |":S.:SYS|41149".E|
|00000140| 24 aa 22 4a 44 3d 50 45 | c5 22 aa 45 24 aa 22 41 |$."JD=PE|.".E$."A|
|00000150| 28 31 38 36 29 3a 4f d0 | 30 2c 44 2c 30 2c 22 aa |(186):O.|0,D,0,".|
|00000160| 45 24 aa 22 43 22 aa 52 | 24 3a 4b 24 28 36 29 b2 |E$."C".R|$:K$(6).|
|00000170| 22 53 43 d2 09 09 09 2c | 55 28 50 45 c5 28 31 38 |"SC....,|U(PE.(18|
|00000180| 36 29 29 22 aa 52 24 3a | 4b 24 28 37 29 b2 22 50 |6))".R$:|K$(7)."P|
|00000190| 4f cb 31 38 36 2c 22 3a | 4b 24 28 38 29 b2 22 53 |O.186,":|K$(8)."S|
|000001a0| 43 d2 09 09 09 2c 55 28 | 50 45 c5 28 31 38 36 29 |C....,U(|PE.(186)|
|000001b0| 29 22 aa 52 24 aa 22 59 | 22 aa 52 24 aa 22 91 91 |)".R$."Y|".R$."..|
|000001c0| 91 91 91 44 d3 22 aa 52 | 24 3a 4b 24 28 39 29 b2 |...D.".R|$:K$(9).|
|000001d0| 22 42 cf 20 09 09 09 4f | 4e 55 28 50 45 c5 28 31 |"B. ...O|NU(PE.(1|
|000001e0| 38 36 29 29 22 aa 52 24 | 3a 4b 24 28 31 30 29 b2 |86))".R$|:K$(10).|
|000001f0| 22 09 09 09 4f 4e 55 28 | 50 45 c5 28 31 38 36 29 |"...ONU(|PE.(186)|
|00000200| 29 22 aa 52 24 00 e8 1e | 03 00 4b 24 28 31 31 29 |)".R$...|..K$(11)|
|00000210| b2 22 09 09 09 2b 22 aa | 51 24 aa 51 24 aa 22 3a |."...+".|Q$.Q$.":|
|00000220| 3f 44 53 24 3a 43 4c cf | 31 35 22 aa 45 24 aa 22 |?DS$:CL.|15".E$."|
|00000230| 4a 44 3d 50 45 c5 22 aa | 45 24 aa 22 41 28 31 38 |JD=PE.".|E$."A(18|
|00000240| 36 29 3a 4f d0 31 35 2c | 44 2c 31 35 2c 22 aa 51 |6):O.15,|D,15,".Q|
|00000250| 24 aa 22 2f 22 aa 51 24 | aa 22 2b 22 aa 45 24 aa |$."/".Q$|."+".E$.|
|00000260| 22 43 22 aa 52 24 3a 4b | 24 28 31 32 29 b2 22 09 |"C".R$:K|$(12).".|
|00000270| 09 09 3a 53 d9 36 35 34 | 37 38 2c 30 2c 31 22 aa |..:S.654|78,0,1".|
|00000280| 45 24 aa 22 4a 44 3d 50 | 45 c5 22 aa 45 24 aa 22 |E$."JD=P|E.".E$."|
|00000290| 41 28 31 38 36 29 3a 4f | d0 31 2c 28 44 29 2c 38 |A(186):O|.1,(D),8|
|000002a0| 2c 22 aa 45 24 aa 22 43 | 22 aa 52 24 3a 4b 24 28 |,".E$."C|".R$:K$(|
|000002b0| 31 33 29 b2 22 42 cc 20 | 09 09 09 2c 55 28 50 45 |13)."B. |...,U(PE|
|000002c0| c5 28 31 38 36 29 29 22 | aa 52 24 3a 4b 24 28 31 |.(186))"|.R$:K$(1|
|000002d0| 34 29 b2 22 43 4f 4c 4c | c5 55 28 50 45 c5 28 31 |4)."COLL|.U(PE.(1|
|000002e0| 38 36 29 29 22 aa 52 24 | 00 aa 1f 04 00 4b 24 28 |86))".R$|.....K$(|
|000002f0| 31 35 29 b2 22 44 43 4c | c5 55 28 50 45 c5 28 31 |15)."DCL|.U(PE.(1|
|00000300| 38 36 29 29 22 aa 52 24 | 3a 4b 24 28 31 36 29 b2 |86))".R$|:K$(16).|
|00000310| 22 44 c3 55 28 50 45 c5 | 28 31 38 36 29 29 22 aa |"D.U(PE.|(186))".|
|00000320| 52 24 3a 4b 24 28 31 37 | 29 b2 22 44 d3 20 20 22 |R$:K$(17|)."D.  "|
|00000330| aa 51 24 aa 22 40 22 aa | 45 24 aa 45 24 aa 22 09 |.Q$."@".|E$.E$.".|
|00000340| 09 09 2c 55 28 50 45 c5 | 28 31 38 36 29 29 22 aa |..,U(PE.|(186))".|
|00000350| 52 24 3a 4b 24 28 31 38 | 29 b2 22 44 d6 20 09 09 |R$:K$(18|)."D. ..|
|00000360| 09 2c 55 28 50 45 c5 28 | 31 38 36 29 29 22 aa 52 |.,U(PE.(|186))".R|
|00000370| 24 3a 4b 24 28 31 39 29 | b2 22 09 09 09 2c 28 44 |$:K$(19)|."...,(D|
|00000380| 29 2c 31 22 aa 45 24 aa | 22 4a 44 3d 50 45 c5 22 |),1".E$.|"JD=PE."|
|00000390| aa 45 24 aa 22 41 28 31 | 38 36 29 3a 56 c5 20 22 |.E$."A(1|86):V. "|
|000003a0| aa 45 24 aa 22 43 22 aa | 52 24 00 76 20 05 00 4b |.E$."C".|R$.v ..K|
|000003b0| 24 28 32 30 29 b2 22 44 | d3 20 20 22 aa 51 24 aa |$(20)."D|.  ".Q$.|
|000003c0| 22 40 22 aa 45 24 aa 45 | 24 aa 22 09 09 09 2c 55 |"@".E$.E|$."...,U|
|000003d0| 28 50 45 c5 28 31 38 36 | 29 29 22 aa 52 24 aa 22 |(PE.(186|))".R$."|
|000003e0| 91 91 91 91 44 d6 20 20 | 20 22 aa 51 24 aa 52 24 |....D.  | ".Q$.R$|
|000003f0| 3a 99 22 0e 93 12 cb 45 | 59 c4 cf d3 20 31 32 38 |:."....E|Y... 128|
|00000400| 20 c6 55 4e 43 54 49 4f | 4e 20 cb 45 59 20 c3 4f | .UNCTIO|N .EY .O|
|00000410| 4d 50 49 4c 45 52 20 d6 | 32 20 2d 20 c3 4f 50 59 |MPILER .|2 - .OPY|
|00000420| 52 49 47 48 54 20 31 39 | 39 30 20 42 59 20 d2 41 |RIGHT 19|90 BY .A|
|00000430| 4e 44 59 20 d7 49 4e 43 | 48 45 53 54 45 52 22 3a |NDY .INC|HESTER":|
|00000440| 99 22 02 c1 4c 4c 20 4b | 45 59 53 20 41 43 43 45 |."..LL K|EYS ACCE|
|00000450| 53 53 20 4c 41 53 54 20 | 55 53 45 44 20 44 52 49 |SS LAST |USED DRI|
|00000460| 56 45 20 28 49 4e 43 4c | 55 44 49 4e 47 20 d2 c1 |VE (INCL|UDING ..|
|00000470| cd c4 cf d3 29 22 00 69 | 21 06 00 44 24 28 31 29 |....)".i|!..D$(1)|
|00000480| b2 22 20 31 20 2d 20 c4 | cc cf c1 c4 20 46 49 4c |." 1 - .|.... FIL|
|00000490| 45 20 46 52 4f 4d 20 44 | 49 52 45 43 54 4f 52 59 |E FROM D|IRECTORY|
|000004a0| 22 aa 43 4c 24 3a 44 24 | 28 32 29 b2 22 20 32 20 |".CL$:D$|(2)." 2 |
|000004b0| 2d 20 d2 d5 ce 20 46 49 | 4c 45 20 46 52 4f 4d 20 |- ... FI|LE FROM |
|000004c0| 44 49 52 45 43 54 4f 52 | 59 22 aa 43 4c 24 3a 44 |DIRECTOR|Y".CL$:D|
|000004d0| 24 28 33 29 b2 22 20 33 | 20 2d 20 c3 c1 d4 c1 cc |$(3)." 3| - .....|
|000004e0| cf c7 20 4c 49 53 54 49 | 4e 47 22 aa 43 4c 24 3a |.. LISTI|NG".CL$:|
|000004f0| 44 24 28 34 29 b2 22 20 | 34 20 2d 20 d2 d5 ce 20 |D$(4)." |4 - ... |
|00000500| 36 34 20 c2 c1 d3 c9 c3 | 20 d0 d2 c7 20 46 52 4f |64 .....| ... FRO|
|00000510| 4d 20 44 49 52 22 aa 43 | 4c 24 3a 44 24 28 35 29 |M DIR".C|L$:D$(5)|
|00000520| b2 22 20 35 20 2d 20 54 | 59 50 45 20 d3 c5 d1 20 |." 5 - T|YPE ... |
|00000530| 46 49 4c 45 20 46 52 4f | 4d 20 44 49 52 22 aa 43 |FILE FRO|M DIR".C|
|00000540| 4c 24 3a 44 24 28 36 29 | b2 22 20 36 20 2d 20 d3 |L$:D$(6)|." 6 - .|
|00000550| c3 d2 c1 d4 c3 c8 20 46 | 49 4c 45 20 46 52 4f 4d |...... F|ILE FROM|
|00000560| 20 44 49 52 22 aa 43 4c | 24 00 18 22 07 00 44 24 | DIR".CL|$.."..D$|
|00000570| 28 37 29 b2 22 20 37 20 | 2d 20 53 45 4c 45 43 54 |(7)." 7 |- SELECT|
|00000580| 20 4e 45 57 20 44 52 49 | 56 45 22 aa 43 4c 24 3a | NEW DRI|VE".CL$:|
|00000590| 44 24 28 38 29 b2 22 20 | 38 20 2d 20 d3 c3 d2 c1 |D$(8)." |8 - ....|
|000005a0| d4 c3 c8 20 54 48 45 4e | 20 c4 d3 c1 d6 c5 20 46 |... THEN| ..... F|
|000005b0| 52 4f 4d 20 44 49 52 22 | aa 43 4c 24 3a 44 24 28 |ROM DIR"|.CL$:D$(|
|000005c0| 39 29 b2 22 20 39 20 2d | 20 c2 cf cf d4 20 44 49 |9)." 9 -| .... DI|
|000005d0| 53 4b 20 2f 20 46 49 4c | 45 20 46 52 4f 4d 20 44 |SK / FIL|E FROM D|
|000005e0| 49 52 22 aa 43 4c 24 3a | 44 24 28 31 30 29 b2 22 |IR".CL$:|D$(10)."|
|000005f0| 31 30 20 2d 20 28 54 41 | 42 53 29 cf ce 20 d5 28 |10 - (TA|BS).. .(|
|00000600| 41 43 54 49 56 45 20 44 | 52 49 56 45 29 2b 28 d2 |ACTIVE D|RIVE)+(.|
|00000610| c5 d4 d5 d2 ce 29 20 22 | 00 f0 22 08 00 44 24 28 |.....) "|.."..D$(|
|00000620| 31 31 29 b2 22 31 31 20 | 2d 20 4f 50 45 4e 20 2f |11)."11 |- OPEN /|
|00000630| 20 43 4c 4f 53 45 20 31 | 35 38 31 20 53 55 42 44 | CLOSE 1|581 SUBD|
|00000640| 49 52 45 43 54 4f 52 59 | 22 aa 43 4c 24 3a 44 24 |IRECTORY|".CL$:D$|
|00000650| 28 31 32 29 b2 22 31 32 | 20 2d 20 45 58 45 43 55 |(12)."12| - EXECU|
|00000660| 54 45 20 42 41 54 43 48 | 20 28 d3 c5 d1 29 20 46 |TE BATCH| (...) F|
|00000670| 49 4c 45 20 46 52 4f 4d | 20 44 49 52 20 22 3a 44 |ILE FROM| DIR ":D|
|00000680| 24 28 31 33 29 b2 22 31 | 33 20 2d 20 c2 cc cf c1 |$(13)."1|3 - ....|
|00000690| c4 20 46 49 4c 45 20 46 | 52 4f 4d 20 44 49 52 22 |. FILE F|ROM DIR"|
|000006a0| aa 43 4c 24 3a 44 24 28 | 31 34 29 b2 22 31 34 20 |.CL$:D$(|14)."14 |
|000006b0| 2d 20 c3 cf cc cc c5 c3 | d4 22 aa 43 4c 24 3a 44 |- ......|.".CL$:D|
|000006c0| 24 28 31 35 29 b2 22 31 | 35 20 2d 20 c4 c3 cc c5 |$(15)."1|5 - ....|
|000006d0| c1 d2 22 aa 43 4c 24 3a | 44 24 28 31 36 29 b2 22 |..".CL$:|D$(16)."|
|000006e0| 31 36 20 2d 20 c4 c3 cc | cf d3 c5 22 aa 43 4c 24 |16 - ...|...".CL$|
|000006f0| 00 ca 23 09 00 44 24 28 | 31 37 29 b2 22 31 37 20 |..#..D$(|17)."17 |
|00000700| 2d 20 c4 d3 c1 d6 c5 20 | 57 49 54 48 20 52 45 50 |- ..... |WITH REP|
|00000710| 4c 41 43 45 22 aa 43 4c | 24 3a 44 24 28 31 38 29 |LACE".CL|$:D$(18)|
|00000720| b2 22 31 38 20 2d 20 c4 | d6 c5 d2 c9 c6 d9 20 c2 |."18 - .|...... .|
|00000730| c1 d3 c9 c3 20 50 52 4f | 47 52 41 4d 20 46 52 4f |.... PRO|GRAM FRO|
|00000740| 4d 20 44 49 52 20 20 20 | 20 22 3a 44 24 28 31 39 |M DIR   | ":D$(19|
|00000750| 29 b2 22 31 39 20 2d 20 | d6 c5 d2 c9 c6 d9 20 42 |)."19 - |...... B|
|00000760| 49 4e 41 52 59 20 50 52 | 4f 47 52 41 4d 20 46 52 |INARY PR|OGRAM FR|
|00000770| 4f 4d 20 44 49 52 20 20 | 20 20 22 3a 44 24 28 32 |OM DIR  |  ":D$(2|
|00000780| 30 29 b2 22 32 30 20 2d | 20 c4 d3 c1 d6 c5 20 57 |0)."20 -| ..... W|
|00000790| 2f 52 45 50 4c 41 43 45 | 20 2b 20 c4 d6 c5 d2 c9 |/REPLACE| + .....|
|000007a0| c6 d9 20 46 52 4f 4d 20 | 44 49 52 22 3a 81 49 b2 |.. FROM |DIR":.I.|
|000007b0| 31 a4 31 39 a9 32 3a 99 | 44 24 28 49 29 a3 34 30 |1.19.2:.|D$(I).40|
|000007c0| 29 44 24 28 49 aa 31 29 | 3a 82 00 53 24 0a 00 fe |)D$(I.1)|:..S$...|
|000007d0| 1a 30 2c 31 33 2c 33 39 | 2c 31 33 2c 31 3a 99 22 |.0,13,39|,13,1:."|
|000007e0| 12 c4 92 45 46 49 4e 45 | 2c 20 12 d3 92 41 56 45 |...EFINE|, ...AVE|
|000007f0| 20 4f 52 20 12 d1 92 55 | 49 54 22 3b 3a fe 1a 34 | OR ...U|IT";:..4|
|00000800| 30 2c 31 33 2c 37 39 2c | 31 33 2c 31 3a 99 22 12 |0,13,79,|13,1:.".|
|00000810| c2 55 46 46 45 52 20 55 | 53 45 44 3a 20 22 3b 3a |.UFFER U|SED: ";:|
|00000820| 42 55 b2 30 3a 81 49 b2 | 34 30 39 36 a4 34 31 30 |BU.0:.I.|4096.410|
|00000830| 35 3a 42 55 b2 42 55 aa | c2 28 49 29 3a 82 3a 99 |5:BU.BU.|.(I):.:.|
|00000840| 42 55 3b 3a a1 f9 41 24 | 3a 8b 41 24 b2 22 51 22 |BU;:..A$|:.A$."Q"|
|00000850| a7 31 37 00 63 24 0b 00 | 8b 41 24 b2 22 53 22 a7 |.17.c$..|.A$."S".|
|00000860| 8d 31 38 00 73 24 0c 00 | 8b 41 24 b3 b1 22 44 22 |.18.s$..|.A$.."D"|
|00000870| a7 31 30 00 a5 24 0d 00 | fe 1a 30 2c 31 33 2c 33 |.10..$..|..0,13,3|
|00000880| 39 2c 31 33 2c 31 3a 85 | 22 12 cb 45 59 20 28 31 |9,13,1:.|"..EY (1|
|00000890| 2d 31 30 29 20 22 3b 4b | 3a 8b 4b b3 31 b0 4b b1 |-10) ";K|:.K.1.K.|
|000008a0| 31 30 a7 31 33 00 d0 24 | 0e 00 85 22 93 12 c4 45 |10.13..$|..."...E|
|000008b0| 46 49 4e 49 54 49 4f 4e | 20 28 31 2d 32 30 29 20 |FINITION| (1-20) |
|000008c0| 22 3b 44 3a 8b 44 b3 31 | b0 44 b1 32 30 a7 31 34 |";D:.D.1|.D.20.14|
|000008d0| 00 35 25 0f 00 8b 42 55 | aa c3 28 4b 24 28 44 29 |.5%...BU|..(K$(D)|
|000008e0| 29 ab 28 c2 28 34 30 39 | 35 aa 4b 29 29 b1 32 34 |).(.(409|5.K)).24|
|000008f0| 36 a7 fe 1a 30 2c 31 33 | 2c 37 39 2c 31 33 2c 31 |6...0,13|,79,13,1|
|00000900| 3a 99 22 12 c2 55 46 46 | 45 52 20 4f 56 45 52 46 |:."..UFF|ER OVERF|
|00000910| 4c 4f 57 92 20 0f 12 d0 | 52 45 53 53 20 41 4e 59 |LOW. ...|RESS ANY|
|00000920| 20 4b 45 59 22 c7 28 31 | 34 33 29 3b 3a a1 f9 41 | KEY".(1|43);:..A|
|00000930| 24 3a 89 31 30 00 c0 25 | 10 00 fe 1a 30 2c 31 34 |$:.10..%|....0,14|
|00000940| 2c 37 39 2c 32 34 3a 81 | 49 b2 31 a4 4b 3a 99 22 |,79,24:.|I.1.K:."|
|00000950| 11 22 3b 3a 82 3a 99 22 | cb 45 59 20 22 3b 4b 3b |.";:.:."|.EY ";K;|
|00000960| 22 3d 20 22 3b 44 24 28 | 44 29 3b 22 13 13 22 3a |"= ";D$(|D);"..":|
|00000970| 81 49 b2 31 a4 c3 28 4b | 24 28 44 29 29 3a 97 33 |.I.1..(K|$(D)):.3|
|00000980| 30 37 31 aa 49 2c c6 28 | ca 28 4b 24 28 44 29 2c |071.I,.(|.(K$(D),|
|00000990| 49 2c 31 29 29 3a 82 3a | 97 32 35 30 2c 30 3a 97 |I,1)):.:|.250,0:.|
|000009a0| 32 35 31 2c 31 32 3a 9e | 36 35 33 38 31 2c 32 35 |251,12:.|65381,25|
|000009b0| 30 2c 4b 2c c3 28 4b 24 | 28 44 29 29 3a 89 31 30 |0,K,.(K$|(D)):.10|
|000009c0| 00 d0 25 11 00 99 22 13 | 13 93 22 3a fe 26 3a 80 |..%...".|..":.&:.|
|000009d0| 00 56 26 12 00 fe 1a 30 | 2c 31 33 2c 33 39 2c 31 |.V&....0|,13,39,1|
|000009e0| 33 2c 31 3a 99 22 12 44 | 52 49 56 45 20 20 22 3b |3,1:.".D|RIVE  ";|
|000009f0| c2 28 31 38 36 29 3b 22 | 9d 9d 9d 9d 9d 22 3b 3a |.(186);"|.....";:|
|00000a00| 85 44 3a 99 22 93 12 09 | 20 20 4b 45 59 44 4f 53 |.D:."...|  KEYDOS|
|00000a10| 2e 4b 45 59 22 45 24 22 | 4a 22 3b 3a 85 22 46 49 |.KEY"E$"|J";:."FI|
|00000a20| 4c 45 4e 41 4d 45 22 3b | 46 24 3a fe 10 28 46 24 |LENAME";|F$:..(F$|
|00000a30| 29 2c 55 28 c2 28 31 38 | 36 29 29 2c 42 30 2c 50 |),U(.(18|6)),B0,P|
|00000a40| 34 30 39 36 a4 50 28 34 | 31 30 36 aa 42 55 29 91 |4096.P(4|106.BU).|
|00000a50| 55 28 44 29 3a 8e 00 00 | 00                      |U(D):...|.       |
+--------+-------------------------+-------------------------+--------+--------+